home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Modules / BackSpaceModules / Source / MazeView / RandomIntPicker.m < prev    next >
Encoding:
Text File  |  1994-05-23  |  391 b   |  38 lines
  1. #import <appkit/appkit.h>
  2. #import "RandomIntPicker.h"
  3.  
  4. @implementation RandomIntPicker
  5.  
  6. - init
  7. {
  8.     [self reset];
  9.     return self;
  10. }
  11.  
  12. - reset
  13. {
  14.     count=0;
  15.     pickedInt=0;
  16.     return self;
  17. }
  18.  
  19. - (int) choice
  20. {
  21.     return pickedInt;
  22. }
  23.  
  24. - (int) count
  25. {
  26.     return count;
  27. }
  28.  
  29. - insert: (int)newInt;
  30. {
  31.     count++;
  32.     if (!(random()%count)) pickedInt=newInt;
  33.     return self;
  34. }
  35.  
  36. @end
  37.         
  38.